package Object::Const;

our @TYPES = qw( public protected private );
our %TYPE; @TYPE{@TYPES} = (1)x@TYPES;

sub import {
	shift;
	my $c = caller;
	for (grep !/^(?:import)$/,@_ ? @_ : keys %{ +__PACKAGE__ .'::' }) {
		*{ $c . '::' . $_ } = *$_;
		#warn "$c <= $_\n";
	}
}

1;
